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T7840 --- READ PROBLEM P/N=1635257 EC=755285 PAGE OU I7840 --- READ PROBLEM P/N=1635257 EC=755285 PAGE O4A 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIS HT IBM CORP 1976 | LoctR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM COPP 1976 
002BEA 767 FO0014 EQU- * 00002F 883+INCC EQU 47 15 1 INTEPRUPT CC ERROR 
OO2BEA 0001 768 Be AL2 (0001) 8B4+* 
00 2BEC 0014 pea hecaice 169 DC 4 (0020) B85+% COMMON BUFFER FOR PRINTING DATA 
D7D3C1C3C540C 770 Cc - .! 
002C02 d74 S00. toe a ee 002B1E 0000 B88+$TUID DC A (*-# TEST UNIT IDENTIFICATION 
002C02 0001 772 De AL2 (0001) 002E20 0000 8894$ICIN DC A (*-* I/O AND INTR CONDITION CODES 
002CO4 0002 7173 DC A (6002) 002E22 0000 890+$ISB DC A (*-* R7, INTR STATUS BYTE & DEV ADRS 
002C06 4040 774 DC CLro00o" t 002F24 0000 891+LSTIO DC hh (#-* aADkS OF LAST I/O + 4 BYTES 
002C08 775 F00006 <EQU- * 002E26 0000 892+4DEV1 DC A (#-* DEVICE DEPENDENT DATA 
002C08 0001 776 EQ AL2 (0001) 002E28 0000 8934+DEV2 DC A (*-* * 
Soscoe Ipds67DHOCIE2QMOD 478 BE A030) O038s¢ 9000 BoseDEVa DC Alea# : ) 
D4YOCIE240D 8 DC Cc teryorr .' i a 
002C30 710 GOCKUG: “Rod eo ee Gene ae Bene eter 002E26 8964*SCTID EOU DEVI PEAD ID BUFFER FOP IBIS & TERN 
002C30 0001 780 DC AL2 (0001) 002E2E 897+DCBUF FOU) * DCB BUFFER FOR LAST DCB USED 
002C32 0002 781 DC A (0002) OO2E2E 0000 898+DCB1 DC A (*-* LAST DCB TABLE, CONTROL WORD 
002C34 4040 7182 DC CLOOO2* ¢ 002E30 0000 8994+DCB2 DC Rh (*-* LAST DCB TABLE, DEV DEP WORD 
002C36 783 F00182 EQU- * 002E32 0000 900+DCB3 DC A (*¥-* LAST DCB TABLE, DEV DEP WORD 
002C36 0003 784 DC AL2 (0003) 002E34 0000 9014DCB4 DC A (#-* LAST DCB TABLE, DEV DEP WORD 
002C38 0014 785 DC x (0020) 002836 0000 902+DCB5 nC h (*-* LAST DCB TABLE, DEV DEP WORD 
002C3A DICSDTD3C1IC3C540C 786 DC CLOO20"REPLACE CARD A-A1J2.' 002E38 0000 903+DCB6 DC A (*-* LAST DCB TABLE, CHAIN ADRS 
OO2C4E OO1A 7187 DC A (0026) 002E3A 0000 904+DCB7 DC A (¥-* LAST DCB TABLE, BYTE COUNT 
002C50 D9CSD7D3C1C3C 5404 788 DC CLO026"REPLACE (FCU) CARD A-A1C2.! 002E3C 0000 205+ DCBS DC A (*-* LAST DCB TABLE, BUFFE® ADDRESS 
DC A (0018 4 
002C6C ES5C5DICIC6EBSHOE3C 790 DC Cf0018* VERIFY THE REPAIR.! 002E3E JO7+CSBUF EQU  * CYCLE STEAL DATA BUFFER 
002C7E 791 FO0242 EQU- * OO2E3E 0000 9084+CSTL1 DC A (*-* CYCLE STEAL BUFFER, PESIDUAL ADRS 
002C7E 0001 7192 De AL2 (0001) 002E40 0000 9094CSTL2 DC A (*-* CYCLE STEAL WD 2, DEVICE DEPEND 
002C80 0002 793 DC 4 (0002) 002E42 0000 9104CSTL3 DC A (*-* CYCLE STEAL WD 3, DEVICE DEPEND 
002C82 4040 794 DC cTOOOD* ' OO2E44 0000 9114CSTL4 DC Ah (*-* CYCLE STEAL WD 4, DEVICE DEPEND 
002Cc84 795 F00216 EQU) * 002E46 0000 9124#CSTL5 DC Rh (*-* CYCLE STEAL WD 5, DEVICE DEPEND 
002C84 0001 196 De AL2 (0001) 002E48 0000 913+CSTLE6 DC A (#-* CYCLE STEAL WD 6, DEVICE DEPEND 
002C86 0002 797 DC a (0002) OO2E4A 0000 914+CSTL7 DC h (*-* CYCLE STEAL WD 7, DEVICE DEPEND 
90 2C88 4HO4O 198 DC CLOO02" ° OO2E4C 0000 g1S#CSTLB DC h (*-* CYCLE STEAL WD 8, DEVICE DEPEND 
9 F00236 EQU * : 
002C8A 0002 800 EQ AL2 (0002) OO2ZE4E 0000 917+$SUBN DC A (*-* LAST SUBROUTINE ADDRESS USED 
002C8C 001A 301 De (00.26) 002E50 00000000 918+$DATA DC 2A (#-* OPTIONAL DATA 
002C8E DICSD7D3C1C3C5404 802 DC CLOO26"REPLACE (DE) CARD D-W1A2. ' O02E54 0021 9194+$INTL DC X*00217' INTERRUPT LEVEL REQUESTED 
002CA8 OOO0E 803 DC A (0014) 002E56 0000 920+TURTN DC Rh (*-* TEST UNIT RETURN ADRS TO MDI 
OO2CAA DOICSD4DE6ESCS4OD1IE 804 DC CLOO14* REMOVE JUMPER.! 002E58 O00B2 921+SDVID DC X"O00B2' DEVICE ID 
002CB8 805 F00239 EQU- * 002E5A 19D0 922+SVCAL DC A (DEVADD) ADRS OF DEVICE ADDRESS 
reece Wits ue DC AL2 (0012) 002E5C 0000 233 t DC A (*-*) IBIS CYLINDER ADDRESS 
DC A (0028 = 
QOO2CBC D9C5CIDSE2ZE3C1D3D 808 DC €10058+ REINSTALL (DE) CARD D-W1A2. ! 225+* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 
002CD8 O00F 809 DC 2 (0014) 926+% FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULTS AREA ARE 
OO2CDA DECSD4DEESCS4ODIE 810 DC CLOO14* REMOVE JUMPER ' 92 1+% STIIL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. 
DC A (0034 
OO2CEA D9C5D7D3C1C3C540C = 812 DC (10034 + REPLACE CAPD A-A1G2. (SEE NOTE 1) ! QO2E5E 4020 2E1E 3C02 9294T3C02 MVWI X*3C02'",STUID SET UP TEST UNIT ID 
Oashae Cea cacehoRTNGEs S14 DC A (0042) O002E64% 5700 aa ae Cee : RETURN TO MDI SUPVR 
a ; : ' 
ete 0226 815 De K(Q04G) Re ae Nee ee one ee eee ie 933 Fo HCE So ad ESE BE ISIE SIG ISIE ICES IE GE IEEE EOC ISAAC TORI SII ICC AGE 
D3A CSETCSC3E4E3C540D 816 DC CLOO44*EXECUTE MAP 7815 TO ENSURE THAT THE ACTU ¥ 934 * * 
eaeoee Poa siheeer Aenean 8 DC A (0036) Se anes ae : EQUATED NAMES FOR SUPPORTED SVC'S 
a 
00O2D8C 0002 819 oe 1 (0002) IS MOVING AT THE CORRECT SPEED. Q 37 He eo he fe he ee a fe ae a oe he ae fe 2 2 ee he a 2 i ec oe oi a kf 2k fe 2h 2 2c He 2 ec ic ie i 2 2 i eae i Kk RK / 
QO2D8E 4OHO 820 pc CLOOO2* 1 000000 938 OUT EO 8 0 our SVC 
002D90 0012 821 DC A (00 18) | 000001 939 OUTIN FOU 1 OUTIN SVC 
002D92 ESC5D9CIC6EB4YOR3C 822 DC CLOO18' VERIFY THE REPAIR.'* 000002 940 IDLE EQU 2 IDLE SVC 
OO2DA4 0002 823 De A (0002) 000003 941 ASCII EOU 3 HEX TO ASCII SVC 
OO2DA6 4040 894 DC CLOOO2* 000004 942 CHNGE EOU 4 CHANGE LEVEL SVC 
002DA8 002C 825 DC A (0044) 000005 943 PGMCK EQU 5 ALLOW RETURN ON PPOGRAM CHECK SVC 
OO2DAA C9IC64ODTIDIDEC2ZD3C 826 DC CLOOS4*IF PROBLEM NOT FIXED , TRACE FAILING SIGNAL ! 000006 944 EXIT EQU 6 EXIT SVC 
002DD6 O002E 827 DC A (0046) 000007 945 TERM EQU 7 TERMINATE SVC 
002DD8 D6DS40C160CIF1I40C 328 DC CLOO46"ON A-A1 BOARD TO POINT OF FAILURE. (SEE SF325 ! 000008 946 RESET EQU- 8 RESET DEVICE SVC 
002F06 0010 829 DC A (0016) 000009 947 RID EQ U S) READ ID SVC 
002E08 6B40DYD3C4HOESD6D 830 DC CLOO16", MLD VOLUME 01)'* OOO00A 948 START EOU 10 START CYCLE STEAL SVC 
831 DIT OOB2 000008 949 STCSS EOU 11 START CYCLE STEAL STATUS SVC 
002E18 0000 833+O0PTN1 DC X'0000! PROGRAM OPTION CONTROL WORD 1 Q0000C 950 PREP EQU 12 PREPARE DEVICE SVC 
OO2ZE1A 0000 Bee ORNS pc y'oooor Miike g24 pean ESu ie RERD WIPE EONCSTON Bit 3 on eeC” 
+ PPOGRAM OPTION CONTPOL WORD 2 : 
900010 Sacena eae ae “ose See 9000.10 S24 WRITO FOU 16 WRITE WITH FUNCTION BIT 3 vc 
+ EQ 0 8 PROBLEM PROGRAM CONTROL BITS , WIT CTION BIT 3 OFF S 
000011 838+B49 EQ U 17 1 rn x i 000011 955 WRIT1 FOU 17 WRITE WITH FUNCTION BIT 3 OW SVC 
000012 839+B50 EOQU 18 2 2 * THESE BITS ARE USED WITH THE 000012 956 CTRL EQU 18 CONTROL SVC 
000013 B40+B51 EGU 19 3 1 * SECOND OPTION WD AND ARE TO 000013 957 RICB EQU- 19 RELEASE INTERUPT CONTROL BLOCK SVC 
000014 84U14+B52 EOU 20 y 8 * BF ASSIGNED BY EACH PROGRAMMER 000014 958 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC 
000015 842+B53 EOU 21 5 rt * 000015 959 HIO EQU- 21 HALT ALL 1/0 
000016 843+B54  EOU 22 6 2 xx 000016 960 RECSD EQU) 22 REQUEST USE OF DCP DISK SVC 
000017 8444+B55 EOU 23 7 1 x 000017 961 RELSD EQU 23 RELEASE USE OF DCP DISK SVC 
000018 8U5+B56 EOU 26 8 8 x 000018 962 HALT EQU 24 HALT SVC 
000019 8464+B57 EQU. 25 9 4 x 000019 963 ETOH EQU 25 EBCDIC TO HEX SVC (STRING 
OOO01A B4U74+B58 EOU 26 10 9 x OO001A 964 HTOE EQU 26 HEX TO EBCDIC SVC (STRING 
000018 848+B59 EQU 27 11 1 * 00001B 965 ATOH EQU 27 ASCII TO HEX SVC (STRING 
00001C 8494+B60 EQU 28 12 g x 00001C 966 HTOA EOD 28 HEX TO ASCII SVC (STRING 
00001D 850+B61 EOU 29 13 rt * 00001D 967 ETOA EQU 29 EBCDIC TO ASCII SVC (STRING 
00001E 851+B62 EQU 30 14 2 x 00001E 968 ATOE EQU 30 ASCII TO EBCDIC SVC (STRING 
00001F C52+B63 EQU 31 45 1 * O0001F 969 READI EQU 31 PEAD DATA SETS FOP MDIZUTIL 
000018 853+CH EQU 30 14 2 CHARACTER SUPPLIED 000020 970 WRITI EQU 22 WRITE DATA SETS FOR UTIL 
OO001F 8544CMP EOU 31 15 4 COMPARE OPERATION QTD He RH He He He He he He he he he He eK oh ae 3h 2h fe ae oe a he ae ee he Hee he I He oe a fe he ae ae hee ic i oi he fe oe ae aK oe i ik oe Be of he oe ok eo Ok 
002E1C 0000 8564+O0PTN3 DC X"'00008 PROGPAM OPTION CONTROL WORD 3 973 * . 
Ba74x | 974 * EQUATES USED BY TU'S AS CONSTANTS * 
858+* 0 MYSTERY INTERRUPT MI 8 CS STATUS IN PROGRESS CS 975 * : 
8594+* 1 ERROR INTERRUPT ER 9 CS AVATLABLE CSA O76 RR RK Kk kk ke IK IO RR RR OI IO i kote aici ake ake ake a ae ak aie ake ake eof ok akc kc oak a ak fe ic a akc ke ae oft afeage fe fc 
sgt 3 HIGEGRGBS @gehives Hh TY) SSa°RRISSOHMERERYPT PPP 8 389885 aid Giles By 124 BEHSs Chie 
ISB BITS ON (1-7 = 
Beat ce ee |CO 23 ie? ee 
+ EXPECTED ERR/ATTENT XE 12 TEST UNIT RESULTS VOID NG : 0 
Beg+* 5 HARD ERROR FOUND HE 13. OIO CC ERROR TOCC 000002 282 TWO. EQU 2 
865+* 6 WRONG INTR LEVEL SLE 14 NO INTERPUPT NOIN 000003 293 THREE FOU 3 
866+* 7 NO INTR EXPECTED NI 15 INTERRUPT CC ERROR TNCC 000004 984 FOUR ERY 4 
867+%* BIT HEX 000005 985 FIVE EQU 5 
000020 868+ MI EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 000006 986 SIX EQU 6 
000021 B69+ER EOU 33 1 4 ERROR RECEIVED ON INTERRUPT 000007 987 SEVEN BRU 7 
000022 870+XT EOU 34 2 2 EXPECTED INTERRUPT CONTROL BIT 000008 388 BIGHT EOU 8 
000023 871+IN EOU 35 3 1 INTEPROPT RECFIVED CONTROL BIT 000009 989 NINE EQU) 9 
000024 B8724+XE EOD) 36 4 8 EXPECTED ERPOP PESPONSE OOO00A 990 TEN EQU 10 
000025 873+HE EQU 37 5 4 HARD ERROR, 8 RETRIES 000008 991 ELEVN EQU 11 11 
0000 26 874+$LE EQU 38 6 2 INTERRUPT ON WRONG LEVEL ERROR 00000C 992 TWELV EQU 12 12 
000027 8754NT EQU 39 7 1 NO INTERPUPT EXPECTED E 00000D 993 THRIN EOU 13 13 
000028 &764+CS EOU 40 8 8 CYCLE STATUS IN PROGRESS OQ000F 994 FIVIN EOU 15 15 
000029 S77+CSA EQU 41 9 4 CYCLE STEAL AVAILABLE 000010 995 SIXTN EQU 16 16 
00002A 87B+CE EOQU 42 10 2 CYCLE STEAL STATUS INEFPRUPT ERROR 900020 996 THRY2 EQU 32 32 
000028 879+ISBON EQU 43 11 1 ISB PITS ON (1-7) 000040 997 SIXT4 EOU 64 64 
00002C 880+NG FOU 44 12 8 TEST UNIT RESULTS NO GOOD 000080 998 ONE28 EQU 128 128 
00002D 8814#ITOCC EOU 45 13 4 OTO CC ERROR 000100 999 TWO56 EQU 256 256 
00002E 882+NOIN EQU 46 14 2 NO INTERRUPT 000400 1000 ONEK EQU 1024 1024 
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17840 --- READ PROBLEM P/N=1635257 EC=755285 PAGE 05 I7840 --- READ PROBLEM P/N=1635257 EC=755285 PAGE O5A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 '  LoOctR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
000800 1001 TWOK EQU 2048 2048 | 11194* ‘ TURESUL BIT 15---------- NOT USED 
000C00 1002 THREK FOU 3072 3072 1120+* f 
001000 1003 FOURK EOQU 4096 4096 11214+% 
FFFFFF 1005 M1 EQU —1 -1 1122+* RETURN CONTROL 
FFFFFE 1006 M2 EQU 3 -2 -2 1123+* 
FFFFFD 1007 M3 EQU -3 -3 11244+% B TURTN* RETURN TO MDI SUPERVISOR 
FFFFFC 1008 Mu EOU -4 1125+* 
1010 FOGG GOOG GIOI GOSS GOI GIGI CIS OIG ISI IOS IGG OGIO GI io ff ick Wiogteoato Rte OP en ence eecner acneece. Oe 
1011 * x OO2EA2 6FOD 2E56 1127+T7812 MVW RIN SAVE RETURN ADDRESS 
1012 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * OO2EA6 4020 2E1E 7812 11284 MVWL RT4 eo $TUID SAVE TU ID FOR DISPLAY 
1013 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * QOO2EAC 4424 2E18 11294 MVA  OPTN1,R4 SET UP POINTER ADRS IN R4 
1014 * * 002EBO0 6E03 396C 1130+ BAL $CONC;R6 CLEAR DEV DEP STG AND CONNECT I/O BL 
1015 PSE SSC PCP STS SSSSSSLSSSSLSSSSPSSSLE SS SES SESS SEP SSESLS SSS SSS SEES LSS SS SSS EEE SST BS OOZ2EBY 39A0 1131+ Dc A (SERRS§) ERROR ADRS FOR INVALID PREP 
000000 1016 BSO EQU O 11324* 
000001 1017 BS1 EOU. 1 002EB6 CA25 18C8 1133 MVWZ TURESUL,R2 CLEAR RFSULTS WORD 
000002 1018 BS2 EQU. 2 OOZEBA 4224 18C8 1134 MVA TORESOL.R2 ADDRESS OF RESULTS 
000003 1019 BS3 FOU 3 OO2ZEBE 4724 3958 1135 MVA TIOBLK,R? RESET DEVICE 
000004 1020 BSG EOD 4 002EC2 6008 1136 SVC RESET a 
000005 1021 BSS ROU. 5 OO2ECK 4724 3958 1137 MVA  TIOBLK,R7 READ DEVICE ID 
000006 1022 BS6 EQU 6 002EC8 6009 1138 SVC RID * 
000007 1023 BS? EOU 7 OO2ECA 402F 3962 00B2 1139 CWI X*'00B2',TOMOD+4 VTL WITH FIXED HEADS? 
000008 1024 BS8 EOU- 8 OOZEDO 1012 1140 JE T12A Y 
000009 1025 BS9 FOU 9 OO2ED2 4O2F 3962 OOBA 1141 CWI <X*'OOBA',IOMOD+4 DUTCHESS WITH FIXED HEADS? 
OOOOOA 1026 BS10 Eou 10 OO2ZEDS 1011 1142 JE T12B YES 
00000B 1027 BS11 EQ 11 OO2ZEDA 402F 3962 OO0A2 1143 CWI xX*OOA2',ITOMOD+4 VTL,NO FIXED HEADS? 
00000C 1028 BS12 EOU 12 OO2EEO 100F 1144 JE T12C YES 
00000D 1029 BS13. EOU 13 OO2ZEE2 402F 3962 OOAA 1145 CWI xX*'OOAA', IOMOD+4 DUTCHESS, NO FIXED HEADS? 
JO000E 1030 BS14 EQU 14 O02EE8 100D 1146 JE T12D YES 
00000F 1031 BS15 EGU 15 OO2EEA 402F 3962 OOCA 1147 CWI X'OOCA',TOMOD+Y LARGE FILE? 
1033 COPY 17838 01DEC76 O0O2EFO 100B 1148 JE T12F YES 
1034 T7838 TUIT S16E OO2EF2 6802 39A0 1149 B SERRE INVALID ID, TU RESULTS NG 
VU SF RH KRHA HR KH HH HH HK HH HK HE He HE He He He 2 2 2 oe ek oe te ek ok ok OK KKK KK H PRB TA eK OO2ZEF6 “AYO ie nee TBTS (PF2,0) VTL WITH FLXED HEADS 
10 36+* 1151 T12E TXIT YES 
10374+* TEST UNIT OO2EF8 6802 39F0 11524+T12E  B SCONX RETURN TO MDI CONTROLLER 
1038+* F153 HH HH HK HH He HH He He He Me He He HM He He He He A He HE He Me He He He He He he ee He a ee He hc 2 oe He he he hee he 2 ee ie eae Heke ok ic he he he eae ok 
1039+* T78S16 READ ID TEST LOOP 12/01/76 1154 * 
1040+* OO2ZEFC 4A41 1155 T12B TBTS (R2,1) DUTCHESS WITH FT XED HEADS 
1041+* PURPOSE OO2EFE 5O0FC 1156 J T12k EXIT 
1042+* 002FO00 4aA42 1157 T12C TBTS (B2 2) VTL NO FIXED HEADS 
1043+* FUNCTION: 002FO2 SOFA 1158 5 126 EXIT 
10444% ) OO2FO4 BA43 1159 T12D TBTS 4R2 3) DUTCHESS NO FIXED HEADS 
1045+4+% a SELECT HEAD FROM MDI 002F06 SOFB 1160 J 12f EXIT 
1046+* > READ ID SECTOR #30 002F08 Ga4g 1161 T12F TBTS (R2 4) LARGE FILE 
1047+ é LOOP UNTIL CE INPUTS ANSWEP TO MAP QUESTION. OO2FOA 50F6 1162 i Ri 12k EXIT 
+ 7 
10494+x 1165 COPY 17820 O1DEC76 
1050+* CALLING SEQUENCE 1166 17820 TUIT SERFS 
10514* 1167423 ogo ORO oR Go oi ick iui daok eto tok dotok 440 6 FEB 76 ** 
1052+4* PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 1168+* 
105344 NO STATUS PASSED BACK TO MDI 1169+% TEST UNIT 
+ + 
1055+* EXITS NORMAL 11714+# T7820 SETUP FOR SCOPE LOOPS 12/01/76 
10 56+* MDI TERMINATES LOOP 1172+* 
| 1057+* 11734+* PURPOSE 
| 1058+* EXITS EPROR 1174+% 
10594+* 2 NONE 1175+* FUNCTION: 
10604+* 11764+* 7 
1061+* RETURN CONTROL 1177+* . PROGRAM INITIALIZES ATTACHMENT. 
1062+* 11784+* > =o RECALIBRATE 
106344 B TURTN® RETURN TO MDI SUPERVISOR 1129+4 =~ =6o SEEK TO CE TRACK 
+ + a 
V OG 5D FAK OE He He ee He eK ee he Hee ee he ee 2 eRe he ee ee i He ea eK 2 ee ae ae 2 ic oe 2 ik ye 2 te te ie a oie lok tek ok 1181+* 
002F66 6FOD 2EF56 1066+7T77838 MVW 7,TURTN SAVE RETURN ADDRESS 1182+* CALLING SEQUENCE 
002E6A 4020 2E1E 7838 1067+ MVWI X'7838',$TUID SAVE TU ID FOR DISPLAY 1183+* 
002E70 4424 2818 1068+ MVA OPEN, R RA SET UP POINTER ADRS IN R4 11844+* PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 
0O2E74 6803 396C 1069+ PAL  $CONC CLEAR DEV DEP STG AND CONNECT I/O BL 1185+* : NO STATUS PASSED BACK TO MDI 
002E78 2E9F 1070+ DC a (Se£y ERROR ADRS FOR INVALID PPEP 1186+* 
10714* 1187+* EXITS NOP MAL 
OO2E7A 4020 3590 0000 1072 MVWI 0,SKDCB+2 SETUP SEEK NO-OP (READ SELECT) 1188+% MDI TERMINATES LOOP 
002E80 8838 189A 3596 1073 MVW TOHPAPM1*,SKDCB+8 SELECT BEAD FROM DI 1189+* 
002E86 6E03 378A 1074 BAL $SEEK,R6 SEEK 1190+* EXITS ERROR 
OO2E8A 2E9R 1075 DC A (S168) ERROR-EXIT 11914+* : NOWE 
OO2E8C 4020 356B 200A 1076 TS16L MVWI X"200A't,RSDCB PFAD SECTOR ID CONTROL WORD 11924% 
002E92 4020 3572 0000 1077 MVWI O,RSDCB+4 LOAD DCB WITH PHY SEC #0(LOG 30) 1193+* RETURN CONTROL 
002E98 6803 379A 1078 BAL $DID,R6 READ SECTOR ID 1194+* 
002E9C 2E9E 1079 DC A (S16) ERROP-EXIT 1195+% B TURTN* RETURN TO MDI SUPERVISOR 
1080 S16E TXIT EXIT 11964+* 
QOO2ZESE 6802 39F0 10814+S16E B S$CONX RETORN TO MDI CONTROLLEP VioeteccsG hon Cy cee nn epee eencee apneeee ee 
1082.4 A RAG I ICO IO GIG IG IG IGRI I GC ICI ICI ak tte ak 00O2FOC 6FOD 2E56 1198+T7820 MVW SAVE RETURN ADDRESS 
1083 * 002F10 4020 2E1E 7820 1199+ MVWI iaaonTe $TUID SAVE TU ID FOR DISPLAY 
1084 * 002F16 4424 218 1200+ MVA Spr 1, Rh SET UP POINTER ADRS 
1085 * OO2F1A 6E03 396C 1201+ BAL $CONC CLEAR DEV DEP STG AND NC ONNECT I/O BL 
1087 COPY 17812 01DECT76 OO0O2F1E 39A0 1202+ DC A USERLS) EPPOP ADRS FOP INVALID PREP 
1088 £17812 TUIT SERRS 12034+* 
1 OB OH RK eH He Me Fe HH He eH I fe He a 2 OE Re ee he ie te 2h 2 A a ie ie fe ce i 2 hk i i co 2 i ok a kK KK OF EB 7G ** OO2F20 4724 3958 1204 S20A MVA IOBLK, PR] SETUP IOBLK 
1090+* 002F24 C020 0232 1205 MVB  CPUID,RO DETERMINE TYPE OF PROCESSOR 
10914+* TEST UNIT 002F28 F025 1206 CBI 37,R0 * 
10924+% OO2F2A 1804 1207 INE T26Tc JUMP IF NOT 4955 
10934+* FILE ATTACHMENT DEVICE ID'S 12/01/76 002F2C 4020 2F3E 254c 1208 MVWI xX'254C',T20T14+2 LOAD TIME CONSTANT FOR 2 SEC 
1094+ 002F32 5003 1209 J T20T2 
1095+* PURPOSE 002F34 4020 2F3E OCOF 1210 T20TC MVWI X®OCOE',T20T1+2 £4953) LOAD TIME CONS FOR 2 SEC 
1096+* O02F3A 6008 1211 T20T2 SVC RESET SSUE IO RESET 
1097+* 002F3C 4024 0000 1212 T20T1 MVWI xX*'0000',RO TIME OUT 2 SEC 
1098+* CALLING SEQUENCE 002F40 6002 1213 TO720 SVC TDLE * 
1099+* O0O2F42 BBFE 1214 SCT  0720,R0 * 
1100+* THE TU WILL DETERMINE THE MODEL AND FEATURES THAT ARE INSTALLED OO2F4UY4 6E03 3792 1215 BAL SRECL,R6 RECALIBRATE 
11014+% ON THE FILE BEING TESTED. OO2F48 39A0 1216 pc A (SERRS) ERROR-EXIT 
11024* OO2F4A UCAT 1217 TBTR { 4, ER) INTERRUPT ERROF? 
110 3+* PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: O0O2F4C 6A00 39A0 1218 BON ERPS YES-EXIT 
110 4+% TURESUL BIT O-3-<-~--------- 9.3 M BYTE VIL WITH FIXED HEADS 002F50 4020 3590 O12E 1219 MVWI 302,SKDCBt#2 SEEK TO CE TRACK 
1105+* 7 TUPESUL BIT 1---3--------- 9.3 M BYTE (DUT WITH FIXED HFADS 00 2F56 4020 358E 0005 1220 MVWI 5, SKDCB SEFK CONTROL WORD 
1106+* i TOURESUL BIT 2------------ 9:3 M BYTE (VTL 002F5c 4020 3596 0000 1221 MVWI O° SKDCB48 SELECT HEAD ZERO 
1107+* : TURESUL BIT 3------------ 9.3 M BYTE (DUTCHESS) 002F62 6EF03 378A 1222 BAL $SEEK,R6 SFEK TO CE TRACK 
1108+* é TURESUL BIT 4Y------------ LARGE FILE OO02F66 39A0 1223 DC A (SERRS) ERROR~- EX 
11094+* ; TURESUL BIT 5----------- NOT USED 002F68 4CA1 1224 TBTR (ea ER) INTERRUPT ERROR? 
1110+* 2 TUPRESUL BIT 6------------ NOT USED OO2F6A 6A00 39A0 1225 BON ERRS YES-EXIT 
41114# : TUPESUL BIT 7----------— NOT USED OO2F6E 4020 356E 200A 1226 MVWI X'200A',RSDCB READ SECTOR ID CONTROL WORD 
1112+* 6 TUORESUL BIT 8------------ NOT USED OO2F74 4020 361Cc 0000 1227 MVWI 0,LGSEC INIT LOG SECT LOC 
1113+4+* * TURESUL BIT 9----------- NOT USED OO2F7A 6E03 3738 1228 S20B BAL CONVT, RE CONVERT LOG SECT TO PHYS-1 
171144+* 2 TURESUL BIT 10---------- NOT. USED OO2ZF7E 8028 361F 3572 1229 MVB PHYSC+1,RSDCBt4 LOAD PHYSC SECT -1 IN RDSEC DCB 
1115+* ‘< TURESUL BIT 11----------- NOT USED OO2F84 6E03 379A 1230 BAI SRDID R6 READ SECTOR ID 
1116+* . TURESUL BIT 12----------- NOT USED 002F88 39A0 1231 DC A (SERPS) ERROP- EXIT 
1117+* < TURESUL BIT 133----------- NOT USED OO2F8A UCAT1 1232 TBTR ne EP) INTEPRUPT EPROF? 
11184+* : TURESUL BIT 14---------- NOT USED OO2F8C 6800 2FB2 1233 BON 206 YES-EXIT 
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OBJECT TEXT STMT SOURCE SYATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
802B 35FE 2E27 1234 CB ZFROO,SCTID+1 FLAG ZERO? 003044 4aAuO 1349 TBTS {2 SET- INTERRUPT ERROR 
1804 1235 JNE  $20C NO 003046 8828 2E40 18CA 1350 MVW ShOr*2, TURESUL+2 CS STATS 
4O2F 2E28 0125 1236 CWI 302,SCTID+2 CE TRACK? 00304C 5018 1351 J T2 EXIT 
1009 1237 JE 5206 YFS 00304E 7B06 0003 1352 T23YY CWI X70003", R3 CHECK FOR COMMAND REJECT 
4O2F 361C 003B 1238 s20C CWI 59,LGSEC END OF TRACK? 003052 6801 39A0 1353 BNE $EP2$ ERROR-TU NG 
6800 39A0 1239 BE SERRE YES-BAD TRACK-RESTART ROUTINE 003056 6803 3864 1354 BAL xIocs START CYCLE STEAL STATS 
4029 361C 0001 1240 AWI 1,LGSEC INCREMENT LOG SECT NUM 003054 39A0 1355 DC A (SERRS) ERROR 
5054 1241 J S30B LOOP 00305Cc 4CaAl 1356 TBTR ged ER) INTERRUPT ERROR? 
1242 $20D TxXIT 00305E 6A00 39A0 1357 BON ERPS YES 
6802 39F0 12434+S20D §B SCONX PN TO MDI CONTROLLER 003062 402B 2E40 0001 1358 TWI xX'0001',CSBUF42 NOT READY? 
MORI SS SS SS PSS TTS SSS SSS SS SS SETS SSS LT SSS SSS SL SSS SSL SSS SSS SS SS SSeS SL SS StL cs 2 2 003068 10EC 1359 JOFF T23AA NO-ERROER 
1245 * 0OO0306A 4AUE 1360 TBTS (R2 14) SET NOT READY 
1246 * 00306C 50EA 1361 J 234K EXIT 
1247 * 00306E 6503 36CA 1362 T1710 BAL SENS1,R6 GET SENSE WORD ONE 
1249 COPY 17823 01DEC76 003072 3920 1363 DC A (SEPRS$) EPROR 
1250 17823 TUIT SERPS 093074 402B 3706 0400 1364 THI X'O400',PDATA TEST HOME POS 
1D 51 FH RR KK KE oR ak IOI I IK kkk ke kh ok tok kok tok OK OKO GA FER 76 ** OO307A 1201 1365 JON T230 HOME IS ON 
1252+% 00307C 4A41 1366 TBTS (R2,1) SET "HOME OFF! 
1253+* TEST UNIT 1367 T230 TXIT 
12544% 00307E 6802 39F0 136847230 8B $CONX RETURN TO MDI CONTROLLFR 
1255+* (TU23-TU71) RECALIBRATE TEST #1 12/01/76 a a aa a 
1256+* 3 * 
1257+* PURPOSE 1372 COPY 17850 01DEC76 
12584+% 1373 T7850 TUIT $SERRS 
eae FUNCTION: TO DETERMINE THE OPERATIONAL STATUS OF RECAL FUNCTION. a aaa he 2 
+ ‘* + 
1261+% - PROGRAM INITIALIZES ATTACHMENT. 1376+* TEST UNIT 
1262+% -  RECALIBRATE 1377+* 
1263+% - CHECK STATUS OF LINES IN ATTACHMENT AND 4962 RELATED TO THE 1378+%* TUSO READ ID TEST 1/07/77 
12644+% -  PECALIBRATE OPERATION. 1379+* 
1265+% 1380+* PURPOSE 
1266+* CALLING SEQUENCE 1381+%* 
1267+% 1382+* CUNCTION: 
1268+% PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 1383+% 5 
1269+* TURESUL BIT 0------------ INTEPRUPT EPROR 13844% - PROGRAM INITIALIZES ATTACHMENT. 
1270+* _ TURESUL BIT 1------------ HOME POSITION NOT ON 1385+* -  RECALIBRATE 
1271+% : TURESUL BIT 2=-—---—~-=-— NOT USED 1386+%* - READ ID'S ON C¥L 2 AND CYL 3 PER PARM 1&2 (PARM1 MUST BE ZERO) 
1272+* : TURESUL BIT 3------------ SEEK CHFCK (SEEK COMPLETE TIME OUT 1387+%* - COMPARE ID'S READ WITH EXPECTED ID'S 
1273+% ; 1388+%* - STORE ID COMPARE RESULTS FOR PASS 1 
12744+* : TURESUL BIT 4--------~---- NOT USED 1389+* ° REREAD ALL ID'S ON TRACK 2 AND TRACK 3 
1275+%* : TURESUL BIT 5----------- NOT USED 1390+% - COMPARE ID'S READ WITH EXPECTED ID-COMPARE ERROR CTN RESULTS 
1276+* P TURESUL BIT 6------------ NOT USED 1391+* : FROM PASS 1 FOR CONSISTENCY 
1277+ : TURESUL BIT 7----------- NOT USED Eee e TORE AUREE ANEO RITES: FOR NDE 
+ i ° 
1279+% : TURESUL BIT 8-----~------ RESERVED (ALWAYS ZERO) 13944%* 
1280+% i TURESUL BIT 9----------- NOT USED 13954+* CALLING SEQUENCE 
1281+* 5 TURESUL BIT 10--------- PLO OUT OF SYNC 1396+* 
1282+% ‘ TURESUL BIT 11--------- BRAKE FAILURE 139 74% YROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 
128 34% E 1398+% TURFSUL BIT 0----NOT USED 
12844 é TURESUL BIT 12--------- UNSA 1399+ ‘ TURESUL BIT 1----UNSAFE 
1285+* : TURESUL BIT 13--------- RECALT BRATE FAILURE 1400+% : TURESUL BIT 2----NOT USED 
1286+%* . TURESUL BIT 14--------- NOT READY 140 14% 2 TURESUL BIT 3----NOT USED 
1287+* TURESUL BIT 15--------- NOT USED 1402+* : 
1288+* : | | 14034+* : TURESUL BIT 4----NOT USED 
1289+% : TURESUL BITS 16-31----- CYCLE STEAL STATUS FOR FAILING OP | 1H044% i TURESUL BIT 5----NOT USED 
1290+* i 1405+* - TURESUL BIT 6----NO RECORD FOUND 
12914+% EXITS NORMAL 1406+* : TURESUL BIT 7----SYNC CHECK OR FILE DATA CHECK 
1292+% z RETURNS TO MDI SUPERVISOR WHEN DONE. 140 7+* : 
12934+* : 140 84% : TURESUL BIT 8----ATTACHMENT BUFFEP PARITY CHECK 
12944* EXITS ERROR 14094+* 2 TURESUL BIT 9----NOT USED 
12954* RETURNS TO MDI SUPERVISOR. 1410+* : TURESUL BIT 10---FRROR OTHFR THAN SYNC OR FILE DATA CHECK 
1296+% 14114* . TURESUL BIT 11---FAILURES NOT CONSISTENT 
1297+* RETURN CONTROL 14124+* : 
1298+* 14134%* i TURESUL BIT 12---ERRORS ON READ ID - HEAD 0 
12994+% B TURTN* PETURN TO MDI SUPERVISOR 14144+% ‘ TURESUL BIT 13---SOLID FAILUPE HEAD 0 - READ ID 
1300+* 14154* : TURFSUL BIT 14---ERRORS ON READ ID - HEAD 
Meee pcr eo ees ce ereenr See seen tases rete Pee L eee eee sete ee 14164+* 2 TURESUL BIT 15---SOLID FAILURE HEAD 1 - READ ID 
6FOD 2E56 13024+T7823 MVH R77 TN SAVE RETURN ADDRESS 141 74+% 2 
4020 2E1E 7823 1303+ MVWI Ri4aoat $STUID SAVE TU ID FOR DISPLAY 14184+% x TURFSUL BIT 16---SOLID FAILURE HEAD ID MISCOMPARE 
4424 2518 1304+ MVA OPTNI, RA SET UP POINTER ADRS IN R4 1419+ : TURESUL BIT 17---SOLID FAILURE HEAD ID MISCOMPARE 
6E£03 396C 1305+ BAL  $CONC CLEAR DEV DEP STG AND CONNECT I/0 BL 1420+* : TURESUL BIT 18---MISCOMPARES ON AD. 
39A0 1306+ pc A SEERRS) ERROR ADRS FOR INVALID PREP 1421+% : TURESUL BIT 19---MISCOMPARES ON HEAD 1 
+ + 7 
C020 0232 1308 MVB  CPUID,RO DETERMINE TYPE OF PROCESSOR 1423+* i TURESUL BIT 20---INTERRUPT 
F025 1309 CBI 37,R0 * 14244+* : TUPESUL BIT 21---RECAL 
1804 1310 SNE 1237 JUMP IF NOT 4955 14254* é TURFSUL BIT 22---SEEK 
4020 2FEE 254C 1311 MVWI X'254C!,T23T1+2 LOAD TIME CONSTANT FOR 2 SEC 1426+4+* TURESUL BIT 23---NCT USED 
5003 1312 J T23T2 142 74+* : 
4020 2FEE OCOE 1313 T23T MVWI X*OCOE',T23T14+2 (4953) LOAD TIME CONS FOR 2 SEC 14284+* 5 TURESUL BITS 24-31 NOT USED 
8028 19D0 3 1314 T2372 MVB  DEVADD, {DCB1+1 OAD DEVICE ADDRESS IN IDC 1429+ . TURESUL BITS 32-47 CS STATS FOR FAILING OP 
4724 3958 1315 MVA  TOBLK,&7 SETUP IOBLK 1430+* : 
6008 1316 SVC. RESET ISSUE IO RESET 14314% EXITS NORMAL 
4024 0000 1317 123T1 MVWI xX*'0000',RO TIMEOUT APPROX 2 SEC 1432+4% : RETURNS TO MDI SUPERVISOR WHEN DONE. 
6002 1318 T1723 SVC IDLE * 14334+* 
BEFE 1319 JCT  1£723,R0 * 14 344% EXITS ERROR 
CA25 18C8 1320 MVWZ TURESUL,R2 CLEAR RESULTS WORD 1435+4+* RETURNS TO MDI SUPERVISOR. 
CA25 18CA 1321 MVWZ TOURESUL+2,R2 CLEAR RESULTS WORD2 14364+% 
4224 18C8 1322 MVA #TURESUL,R2 ADDRESS OF RESULTS 14374+* RETURN CONTROL 
6£03 3792 1323 BAL $RECL,RO RECALIBRATE 14384 
304E 1324 DC A (T234Y) ROR 1439+4+* B TURTN* RETURN TO MDT SUPERVISOR 
QCA 1325 TBTP a4 ER) INTERRUPT EPROR? 1440+* 
ions 1326 v Epa eh on FOR CYCLE STEAL STATS 003082 6FOD 2E56 Seieegcey ue oe nee nn ce ere eee Reet ee eet eee 
u2+T MVW TURTN SAVE RETURN ADDRESS 
6800 39A0 1328 BOFF JERKS ERR 003086 4020 2E1E 7850 1443+ MVWI xX*7850',$TUID SAVE TU ID FOR DISPLAY 
8828 2E40 368C 1329 MVW  CSBUF+2,STATS ADDRESS OF CYCLE STEAL STATS 00308C 4424 218 1444+ MVA  OPTN1,R4 SET UP POINTER ADRS IN R4 
4524 368C 1330 MVA  STATS,RS5 * 003090 6£803 396C 14454 BAL $CONC,R6 CLEAR DEV DEP STG AND CONNECT I/O BL 
4D87 1331 TBTP (BS 7f UNSAFE? 003094 39:0 14464 DC A (SERR S$ ERROR ADRS FOR INVALID PREP 
inte 1333 tere (Aa 2 ee uNSs 993096 00 0232 Wis’* ava cpuzp,no 
’ D,R DETERMINE TYPE OF PROCESSOR 
4D8A 1334 T23SS TBTR rs 10} BRAKE FRILURE? 00309A F025 1449 CBI 37,R0’ * 
1001 1335 JOFF 723¢T NO 00309C 1807 1450 JNE 7567c JUMP IF NOT 4955 
4AUB 1336 TBTS (R2,11) SET- BRAKE FAILURE 003098 4020 3114 254c 1451 MVWI X'254C',T50T142 LOAD TIME CONSTANT FOR 2 SEC 
4D 86 1337 T23TT TBTP (R5,6) PLO OUT OF SYNC CHECK? 0030A4 4020 31EC 254C 1452 MVWI X'254C* ,T50T 342 LOAD TIME CONSTANT FOR 2 SEC 
1001 1338 JOFF 12360 NO OO30AA 5006 1453 J TSOT2 
GAYA 1339 TBTS (R2,10) SET- PLO OUT OF SYNC 0030AC 4020 3114 OCOE 1454 T5OTC MVWI X*'OCOE', T50T142 (4953) LOAD TIME CONS FOR 52 cSEC 
4D89 1340 T2300 TBTR (R5,9) SEEK CHECK? 0030B2 4020 31EC OCOE 1455 MVWI X*OCOE',T50T3+2 OAD TIME CONSTANT FO 
1001 1341 JOFF 1234 NO 0030B8 4020 3672 0000 1456 T50T2 MVWI O0,PASS1 INIT PASS COUNTER 
4A43 1342 TBTS R273) SET- SEEK CHECK 0030BE 4Cc9Cc 1457 TBTR gaa B60) INIT CYL 2 FLAG 
4D 8B 1343 T23A TBTR (R5,1 RESET UNSAFE BITS 0030CO0 4020 3680 0000 1458 MVWI 0O,HDOSV INIT HEAD O SAVE COMP ERR CTR 
4D8C 1344 TBTR (P5,12 * 0030C6 4020 3682 0000 1459 MVWI O,HDISV INIT HEAD 1 SAVE COMP ERR CTR 
4D8D 1345 TBTR (R5,13 * 0030CC 4020 3684 0000 1460 MVWI 0O,EROSV INIT HEAD 0 SAVE ERR COUNTER 
402F 368C 0000 1346 CWI Sfat OTHER ERROR BITS ON? 0030D2 4020 3686 0000 1461 MVWI O,ERISV INIT HEAD 1 SAVE ERR COUNTER 
6800 3072 1347 BE 7530 NO-EXIT 0030D8 CA25 18C8 1462 MVWZ TORESUL,R2 CLEAR RESULTS WORD 
GA4D 1348 T23AA TBTS (R2,13) SET RECAL FAILURE 0030DC CA25 18CA 1463 MVWZ TURESUL42,R2 CLEAR RESULTS WORD 
> ~“ \ \ ~ = 3 -_ : ~\ , a : 
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CROSS-REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


ooh aad ed ad aed ned 
CONIMAUTIW UW) 
NON =UION 
w~} 00 00 ON nt 


POND =. NORD DD aad ad eed DNORINON 
~OUn 


NODNIN = od 


RON) and ad 


ABSOLUTE. HEX VALUE (00009900) 

1205 1206 1212 1214 1308 1309 1317 1319 
1449 1474 1476 1528 1530 1719 1720 1742 
2242 2243 2244 2245 2249 2250 2251 2252 
ABSOLUTE. HEX VALUE (00000001) 

2734 2737 2740 2743 

ABSOLUTE. HEX VALUE (00000002) 
1133. 1134 1150 1155 1157 1159 1161 1320 
1322 1333 1336 1339 1342 1348 1349 1360 
1462 1463 1464 1465 1544 1547 1550 1553 
1561 1564 1567 1582 1585 1588 1610 1611 
1620 1624 1632 1633 1636 1725 1726 1727 
1777. 1780 1783 1786 1799 1802 1824 1825 
1830 1834 2739 2740 

ABSOLUTE. HEX VALUE (00090003) 

1352. 2148 2149 2190 2194 2196 2275 2277 
2336 2340 2343 2354 2357 2370 2373 2443 
2456 2457 2460 2462 2518 2519 25548 2560 
2594 2599 2612 2642 2687 2689 2690 2698 
2733. 2737 «2749 

ABSOLUTE. HEX VALUE (00000004) 

1068 1129 1200 1217 1224 1232 1304 1325 
1356 1444 1457 1479 1486 1520 1524 1531 
1594 1596 1715 1747 1754 1808 1810 1838 
1842 2646 2447 2450 2464 2465 2467 2468 
2477 2483 2555 2556 2558 2562 2566 2595 
2597 2607 2608 2609 2611 2614 2624 2626 
2631 2633 

ABSOLUTE. HEX VALUE (00000005) 

1330 1331 1334 1337 1340 1343 1344 1345 
1600 1602 1604 1606 1608 1813 1814 1816 
1820 1822 2191 2195 2196 2276 2277 2334 
2341 2343 2355 2357 2371 2373 2454 2456 
2460 2476 2481 2603 2604 2605 2636 2637 
2688 2689 2731 2744 

ABSOLUTE. HEX VALUE (00000006) 

1069 1074 1078 1130 1201 1215 1222 1228 
1305 1323 1354 1362 1445 14677 1484 1490 
1518 1534 1591 1592 1716 1745 1752 1758 
1805 1806 2116 2120 2122 2126 2128 2132 
2139 2141 2145 2150 2197 2198 2237 2278 
2472 2484 2520 2625 2630 2632 2638 2641 
2693 2699 2701 2736 2741 2742 

ABSOLUTE. HEX VALUE (00000007) 

930 1066 1127 1135 1137 1198 1204 1302 
1442 1472 1526 1713 1729 1740 1855 1857 
2189 2193 2274 2335 2342 2356 2372 2455 
2466 2559 2600 2686 2691 2696 2729 2735 

ADDRESS. HEX LOCATION (0000396C) IN CSECT (17840 
1069 1130 1201 1305 1445 1716 

ADDRESS. HEX LOCATION (00003980) IN CSECT(I7840 
1081 1152 1243 1368 1639 1845 1861 

ADDRESS. HEX LOCATION (00003920) IN CSECT(I7840 
1131. 1149 1202 1216 1218 1223 1225 1231 
1306 1328 1353 1355 1357 1363 1446 1478 
1519 1535 1593 1597 1717 1746 1753 1807 
oARDRESS, HEX LOCATION (00002E54) IN CSECT (I7840 

ADDRESS. HEX LOCATION(00002F20) IN CSECT(I7840 
2149 2461 2519 2599 2636 2697 

ADDRESS. HEX LOCATION (00002522) IN CSECT (17840 
2462 2600 2639 2698 

ABSOLUTE. HEX VALUE (00000026) 

2467 2607 

ADDRESS. HEX LOCATION (0000379A) IN CSECT(1I7840 
1078 1230 1592 1806 

ADDRESS. HEX LOCATION(00003792) IN CSECT (17840 
1215 1323 1477. 1745 

ADDRESS. HEX LOCATION (00003782 ain CSECT (17840 
1074 1222 1484 1518 15 

ADDRESS. HEX LOCATION (00002E1E tN CSECT (17840 

9 1067 1128 1199 1303 1443 1714 2749 

ADDRESS. HEX LOCATION (00001988) IN CSECT(1I7840 
>ADDRESS. HEX LOCATION(000019BA) IN CSECT(1I7840 

ABSOLUTE. HEX VALUE (00000101) 

474 480 483 £504 510 513 543 9549 

633 636 

ABSOLUTE. HEX VALUE (00000200) 

552. 569 578 ; 

ABSOLUTE. HEX VALUE (00000600) 

567 593 616 

ABSOLUTE. HEX VALUE (00000 100) 

477 507 540 546 

ABSOLUTE, HEX VALUE (00000400) 

456 465 486 495 558 584 607 624 

ABSOLUTE. HEX VALUE (00000500) 

3 444g 516 528 595 

ADDRESS. HEX LOCATION (000039FA) IN CSECT(I7840 
ABSOLUTE. HEX VALUE (00000080) 

ADDRESS. HEX LOCATION (00003B02) IN CSECT(I7840 
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DECLARED NAMNE 


DECLARED NAME ATTRIBUTES AND REFERENCES ATTRIBUTES AND REFERENCES 
2562 INTES >ABDRESS. HEX LOCATION(000038E4) IN CSECT(I7840 ) LENGTH(2) 636 N00035 ADDRESS, HEX LOCATION(000026D6) IN CSECT(I7840 ) LENGTH(2) 
2566 INTET ADDRESS. HEX LOCATION (000038EC) IN CSECT(I7840 ) LENGTH (2) 60 ON ABSOLUTE. HEX VALUE (00000200) 
2593 INTOK ADDRESS. HEX LOCATION(000038F0) IN CSECT(I7840 ) LENGTH(2) 833 OPTN1 ADDRESS. HEX LOCATION (00002E18) IN CSECT(I7840 ) LENGTH (2) 
657 1068 1129 1200 1304 1444 1715 2555 2595 
66 INTRNL ABSOLUTE. HEX VALUE (00000000) 856 OPTN3 oRDDRESS, HEX LOCATION(OOO002F1C) IN CSECT(I7840 ) LENGTH(2) 
2615 INTRX ADDRESS. HEX LOCATION (00003920) IN CSECT(I7840 ) LENGTH (2) 104 PARMARA ADDRESS. HEX LOCATION(0000196E) IN CSECT(I7840 _) LENGTH(1) 
2610 2613 u4u2 454 463 472° 493 02 526 °538 £565 
2596 INTR1 ADDRESS. HEX LOCATION(000038F8) IN CSECT(I7840 ) LENGTH(2) 591 605 614 #631 
2561 2565 256 2058 PASS1 ADDRESS. HEX LOCATION (00003672) IN CSECT(I7840 ) LENGTH(2) 
2601 INTR2 ADDRESS. HEX LOCATION (00003906) IN CSECT(I7840 ) LENGTH(1) 1456 1540 1576 1734 1773 1793 
2598 20 16 PHYSC ADDRESS. HEX LOCATION (0000361E) IN CSECT(I7840 ) LENGTH(2) 
2609 INTR3 ADDRESS. HEX LOCATION (00003914) IN CSECT(I7840 ) LENGTH (2) 1229. 1491 1759 2245 2247 2252 
2606 72 PID ADDRESS. HEX LOCATION(00001800) IN CSECT (17840 if LENGTH (1) 
2647 IOBLK ADDRESS. HFX LOCATION (00003958) IN CSECT(1I7840 LENGTH (2) 74 75 76 77 78 79 80 81 2 
1135. 1137 1208 1315 1472 1526 1729 1740 1857 83 84 85 86 87 88 89 90 91 
2466 2696 92 93 94 95 96 97 98 99 100 
2649 IODCB ADDRESS. HEX LOCATION (0900395C) IN CSECT(I7840 ) LENGTH (2) 101 102 #103 #1048 #«#4«+1105 106 (107 108 #109 
1856 2326 2329 2332 2344 2347 2350 2353 2361 110 17% 112 113. 118 115 2745 
2365 2369 2377 2381 2384 2388 2448 2454 2695 2777 PIDMSG10 ABSOLUTE. HEX VALUE (0000F1FO) 
2650 IOMOD ADDRESS, HEX LOCATION (00003955) IN CSECT(I7840  ) LENGTH (2) 2745 
1139 1144 1143. 1145 1147 =#17371 = 2443 2449 950 PREP ABSOLUTE. HEX VALUE(0000000C) 
40 17840 CSECT. START(00002500) LENGTH (5648) ESDID(0) 1858 2700 
40 2156 RDATA ADDRESS. HEX LOCATION(00003706) IN CSECT(I7840 ) LENGTH (2) 
2015 LGSEC ADDRESS. HEX LOCATION (000036 1C) JN CSECT(I7840 _) LENGTH(2) 1364 
1227. 1238 1240 1489 1497 1509 1511 #1757 1763 1969 RDDCB ADDRESS. HEX LOCATION(000035CE) IN CSECT(I7840 ) LENGTH (2) 
1769 1771 2238 2240 2243 2250 2341. 2344 
2763 LINE1 > ADDRESS. HEX LOCATION (00003A32) IN CSECT(I7840 ) LENGTH (40) 1591 RDID jABBRESS. HEX LOCATION(000032C8) IN CSECT(I7840 ) LENGTH{4) 
891 LSTIO ADDRESS. HEX LOCATION (0Q002E24) IN CSECT(I7840 ) LENGTH(2) 1805 RDID1 ADDRESS. HEX LOCATION(000034B8) IN CSECT(I7840 ) LENGTH (4) 
2116 2122 2128 2135 2141 #2452 2699 1760 
868 MI ABSOLUTE. HEX VALUE (00000020) 946 RESET ABSOLUTE. HEX VALUE (00000008) 
2611 1136 12117 1316 1473 1527 1741 
2737 MV BUF oADDRESS, HEX LOCATION (000039BE) IN CSECT(I7840 ) LENGTH (2) 957 RICB jABSOLUTE. HEX VALUE (00000013) 
62 MX ABSOLUTE. HEX VALUE(00000204) 947 RID |ABSOLUIE. HEX VALUE (00000009) 
880 NG ABSOLUTE. HEX VALUE (0000002C) 1991 RKDCB ADDRESS. HEX LOCATION(00003S5EE) IN CSECT(I7840 ) LENGTH(2) 
2614 2353 2358 2365 2366 
875 NI ABSOLUTE. HEX VALUE (00000027) 1901 RS DCB ADDRESS. HEX LOCATION (00003565), IN CSECT(I7840 d LFNGTH (2) 
2471 1076 1077 1226 1229 14688 1491 1756 1759 2332 
432 nN00001 ADDRESS. HEX LOCATION (00002590) IN CSECT(I7840 ) LENGTH(2) 2337. 2369 2374 
318 649 2249 RTTO1 ADDRESS. HEX LOCATION(00003766) IN CSECT(I7840 ) LENGTH (4) 
444 N00002 ADDRESS. HEX LOCATION (000025A2) IN CSECT(I7840 ) LENGTH (2) 2241 
321 896 SCTID ADDRESS. HEX LOCATION (0000226) IN CSECT(I7840 _) LENGTH(2) 
456 N00003 ADDRESS. HEX LOCATION(000025B4) IN CSECT(I7840 ) LENGTH(2) 41234 1236 1493 1495 1497 1499 1501 1761 1763 
324 652 1765 1908 1920 1998 2194 2275 2334 2337 2355 
465 NOO0004 ADDRESS. HEX LOCATION(000025C2) IN CSECT(I7840 ) LENGTH(2) 2358 
327 2026 SCTST ADDRESS. HEX LOCATION (00003632) IN CSECT(I7840 ) LENGTH (2) 
474 N00005 ADDRESS. HEX LOCATION (000025D0) IN CSECT(I7840 ) LENGTH (2) 2190 2366 2371 2374 
330 2135 SENS1 ADDRESS. HEX LOCATION(000036CA) IN CSECT(I7840 ) LENGTH(4) 
477 N00006 ADDRESS. HEX LOCATION(000025D4) IN CSECT(I7840 ) LENGTH (2) 1362 
333-46 1925 SKDCB ADDRESS. HEX LOCATION (0000358E) IN CSECT(I7840 Y LENGTH (2) 
480 N00007 ADDRESS. HEX LOCATION(000025D8) IN CSECT(I7840 ) LENGTH (2) 1072 1073 1219 1220 1221 1481 1482 1483 1499 
336 1501 1504 1513 1515 1515 1516 1517 1522 1522 
483 N00008 ADDRESS. HEX LOCATION (000025DC) IN CSECT(I7840 ) LENGTH(2) 1532 1533. 1538 1614 1626 1749 1750 1751 1765 
486 N00009 ADDRESS. HEX LOCATION(000025E0) IN CSECT(I7840 ) LENGTH (2) 948 START jhBSOLUTE. HEX VALUE (00000003) 
495 N00010 ADDRESS. HEX LOCATION (O000025EE) IN CSECT(I7840 ) LENGTH (2) 2071 STATS JABBRESS. HEX LOCATION (0009368C) IN CSECT (17840 ) LENGTH (2) 
504 N00011 ADDRESS. HEX LOCATION (000025FC) IN CSECT(I7840 ) LENGTH(2) 107 SUPSTAT aiDDRESS. HEX LOCATION (000019C4) IN CSECT(I7840 ) LENGTH (1) 
507 N00012 ADDRESS. HEX LOCATION (00002600) IN CSECT(I7840 ) LENGTH (2) 1081 S16E ADDRESS. HEX LOCATION (00002E9E) IN CSECT(I7840 ) LENGTH(4) 
510 N00013 ADDRESS. HEX LOCATION (00002604) IN CSECT(I7840 ) LENGTH (2) 1228 S20B ARBRESS. HEX LOCATION (00002F7A) IN CSECT(I7840 ) LENGTH(4) 
513 N00014 ADDRESS. HEX LOCATION (00002608) IN CSECT(I7840 ) LENGTH (2) 1238 520C LBBRESS. HEX LOCATION(00002FA0) IN CSECT(I7840 ) LENGTH (6) 
516 N00015 ADDRESS. HEX LOCATION(0000260C) IN CSECT(I7840 ) LENGTH (2) 1243 S20D ADDRESS. HEX LOCATION (00002FB2) IN CSECT(I7840 ) LENGTH (4) 
528 N00016 ADDRESS. HEX LOCATION (00002624) IN CSECT(I7840 ) LENGTH(2) 1213 T0720 jAdDRESS- HEX LOCATION(00002F40) IN CSECT(I7840 ) LENGTH(2) 
540 N00017 ADDRESS. HEX LOCATION (00002638) IN CSECT(I7840 ) LENGTH(2) 1076 TS 16L ADDRESS. | EX LOCATION (00002E8C) IN CSECT(I7840 ) LENGTH (6) 
543 N00018 ADDRESS. HEX LOCATION (0000263C) IN CSECT(I7840 ) LENGTH (2) 1529 TT TS {ADBRESS. HEX LOCATION(000031EE) IN CSECT(I7840 ) LENGTH (2) 
546 n00019 ADDRESS, HEX LOCATION (00002640) IN CSECT(I7840 ) LENGTH(2) 2247 TT 303 a ADDRESS. HEX LOCATION(0000375E) IN CSECT(I7840 ) LENGTH (6) 
549 N00020 ADDRESS. HEX LOCATION (00002644) IN CSECT(I7840 ) LENGTH (2) 2253 TT 304 oARDRESS, HEX LOCATION (00003776) IN CSECT(I7840 ) LENGTH(4) 
552 n00021 ADDRESS, HEX LOCATION (00002648) IN CSECT(I7840 ) LENGTH (2) 2196 TT UY ohBDRESS. HEX LOCATION (0000372F) IN CSECT(I7840 ) LENGTH (2) 
558 00022 ADDRESS; HEX LOCATION (00002654) IN CSECT(I7840 ) LENGTH(2) 95 TUMSGWTR > ADDRESS. HEX LOCATION(000018BA) IN CSECT(I7840 ) LENGTH(1) 
567 N00023 ADDRESS. HEX LOCATION (00002662) IN CSECT(I7840 ) LENGTH (2) 79 TUPARM 1 jADDRESS. HEX, LOCATION (00001898) IN CSECT(I7840 ) LENGTH(1) 
569 nN00024 ADDRESS: HEX LOCATION (00002664) IN CSECT(I7840 ) LENGTH (2) 80 TUPARM2 jBDDRESS. HEX LOCATION(0000189C) IN CSECT(I7840 ) LENGTH (1) 
575 N00025 ADDRESS. HEX LOCATION(00002670) IN CSECT(I7840 ) LENGTH(2) 101 TURESUL ADDRESS. HEX LOCATION(000018C8) IN CSECT (17840 ) LENGTH (1) 
390 1133. 1134 1320 1321 1322 1350 1462 1463 1464 
578 N00026 ADDRESS. HEX LOCATION(00002674) IN CSECT(I7840 ) LENGTH(2) 1465 1574 1634 1725 1726 1727 #21728 #+$1791 1840 
393. 44S 920 TURTN ADDRESS. HEX LOCATION (00002856) IN CSECT(I7840 L LENGTH (2) 
584 N00027 ADDRESS. HEX LOCATION(00002680) IN CSECT(I7840 ) LENGTH(2) 1066 1127 1198 1302 1442 1713 1855 °1860 2755 
396 =: 433 77 TUSTATUS ADDRESS. HEX LOCATION(00001818) IN CSECT(I7840  ) LENGTH (1) 
593 N00028 ADDRESS. HEX LOCATION(0000268E) IN CSECT(I7840 ) LENGTH (2) 2728 
399 78 TUWORK ADDRESS, HEX LOCATION(0000181A) IN CSECT(I7840 ) LENGTH(1) 
595 N00029 ADDRESS. HEX LOCATION (00002690) IN CSECT(I7840 ) LENGTH(2) 2732 2784 
402 85 1150 TI2A ADDRESS. HEX LOCATION(00002EF6) IN CSECT(I7840 ) LENGTH (2) 
607 N00030 ADDRESS. HEX LOCATION(000026A8) IN CSECT(I7840 ) LENGTH(2) 1140 
405 1155 T12B ADDRESS. HEX LOCATION (OO002EFC) IN CSECT(I7840 ) LENGTH (2) 
6 16 N00034 ADDRESS. HEX LOCATION(000026B6) IN CSECT(I7840 ) LENGTH (2) 1142 
408 1157 T12C ADDRESS. HEX LOCATION(00002F00) IN CSECT(I7840 ) LENGTH (2) 
618 100032 ADDRESS. HEX LOCATION(000026B8) IN CSECT(I7840 ) LENGTH(2) 1144 
411 608 1159 T12D ADDRESS. HEX LOCATION (00002F04) IN CSECT(I7840 ) LENGTH (2) 
624 N00033 ADDRESS. HEX LOCATION(000026C4) IN CSECT(I7840 ) LENGTH(2) 1146 
414 596, 1152 T12E ADDRESS. HEX LOCATION(OOO02EF8) IN CSECT(I7840 ) LENGTH (4) 
633 N00034 ADDRESS, HEX LOCATION(000026D2) IN CSECT(I7840 ) LENGTH (2) 1156 1158 1160 
447 1161 T12F ADDRESS. HEX LOCATION(00002F08) IN CSECT(I7840 ) LENGTH(2) 
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T20TC 
T20T1 
T20T2 
T23A 
T23AA 
T23SS 
T23T 
T23TT 
T23T1 
T23T2 
T230 
T23UU 
T23YY 
T3C02 
T50A 
T50AA 
T50B 
T50BB 
T50C 
T50CC 
T50D 
T50E 
T50F 
T50G 
T50H 
T50I 
T50d 
T50L 
T50M 
T50N 
T50R 
T50S 
T50T 
T50TC 
T50T1 
T50T2 
T50T3 
T50U 
T50W 
T50X 
T50Y 
T500 
T501 
T502 
T503 
T504 
T505 
T506 
T507 
T51A 
T51AA 
T51B 
T51BB 
T51CC 
T51E 


ATTRIBUTES 
1148 
ADDRESS. 
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ADDRESS. 
1208 121 
ADDRESS. 
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RESS. 
RESS. 
RESS. 
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RESS. 
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CROSS-REFERENCE LISTING 


REFERENCES 


LOCATION (00002F34) 
LOCATION (00002F3C) 
LOCATION (00002F3A) 
LOCATION (00003032) 
LOCATION (00003042) 
LOCATION (00003020) 
LOCATION (00002FDA) 
LOC ATION (00003026) 
LOCATION (00002FEC) 
LOCATION (00002FE0) 
LOCATION (0000307E) 


1351 365 
ESS. HE 


X LOCATION (0000302C) 


HEX 
HEX 
HEX 
HEX 
HE 

1 
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HEX 
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HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


LOCATION (00003048) 
LOCATION (00002E5E) 
LOCATION (00003326) 
LOCATION (00003342) 


X oo ae ee 


LOCATTON (0000334) 
LOCATION (00003194) 
LOCATION (00003344) 
LOCATION (000031B2) 
LOCATION (00003150) 
LOCATION (00003120) 
LOCATION (0000314) 
LOCATION (00003214) 
LOCATION (000032A6) 
LOCATION (0000318a) 
150 


500 


LOCATION (00003230) 
LOCATION (00003244) 
LOCATION (00003264) 
LOCATION (00003278) 
LOCATION (0000329C) 
LOCATION (00003352) 


x 
1625 1635 


LOCATION (000030AC) 
LOCATION (00003112) 
LOCATION (000030B8) 
LOCATION (000031EA) 
LOCATION (000030E8) 
LOC ATION (000032B0) 
LOCATION (000032BA) 
LOCATION (000032C4) 
LOCATION (0000331C) 


EX 
1617 1619 
REX 


LOCATION (0000331A) 
LOC ATION (00003320) 
LOCATION (00003300) 
LOCATION (000032FC) 
LOC ATTON (00003302) 
LOCATION (00003312) 
LOCATION (00003338) 
LOCATION (00003506) 
LOC ATION (00003510) 
LOCATION (0000343a) 
LOCATION (0000351C) 
LOCATION (00003512) 
LOCATION (00003402) 


CSECT(1I7840 
CSECT (17840 
CSECT (I7840 
CSECT(I7840 
CSECT (17840 
CSECT(I7840 
CSECT(I7840 
CSECT (17840 
CSECT (17840 
CSECT(I7840 
CSECT (17840 
CSECT (17840 
CSECT(I7840 
CS ECT (17840 
CSECT(I7840 
CSECT (I7840 
CSECT(I7840 
CSECT (I7840 
CSECT (17840 
CSECT(I7840 
CSECT (17840 
CSECT(I7840 
CSECT (17840 
CSECT (17840 
CSECT(I7840 
CSECT (17840 
CSECT (I7840 
CSECT (17840 
CSECT (17840 
CSECT (17840 
CSECT (17840 
CSECT (I7840 
CSECT(I7840 
CSECT (17840 
CSECT (17840 
CSECT (17840 
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CSECT (17840 
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PASE 15 


COPYRISHT IBM CORP 1976 


LENGTH (6) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (6) 
LENGTH (2) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 
LENGTH (2) 
LENGTH (6) 
LENGTH (2) 
LENGTH (6) 
LENGTH (2) 
LENGTH (6) 
LENGTH (4) 
LENGTH (2) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (2) 
LENGTH (6) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
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DECLARED 
1773 
1797 
1768 
1781 
1787 
1793 
1845 
1724 
1742 
1725 
1737 
1800 
1803 
1734 
1831 
1830 
18 34 
1827 
1825 
1828 
1362 
1860 
1861 
1318 
1475 
1743 
1127 
1066 
1442 
1855 
1958 
1980 
1947 
2019 
1891 
2023 
872 
870 
2443 
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2448 
26 33 
2642 
2517 
2452 
2465 
2477 
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2001 
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READ PROBLEM 


NAME 
T51H 
T51I 
T5113 
T51L 
T51m 
T51S 
T51T 
T51TC 
T5171 
T51T2 
T510 
T51W 
T51Y 
T51YY 
T510 
T511 
T512 
T513 
T514 
TS16 
T710 
T72A 
T72B 
T723 
T750 
T751 
T7812 
T7838 
T7850 
T7872 
VR DCB 
WKDCB 
WRDCB 
WESID 
WS DCB 
WSIDT 
XE 

XI 
XIO 


XIOCK 
XIOCO 
XIOCS 
XTOCV 
XIOCX 
XIOER 
XIO1 

XTO2 

XI08 

XTRNL 
ZEROO 
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CROSS-REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 
ADDRESS. HEX LOCATION(O0000344A) IN 
ADDRESS. HEX LOCATION(000034A0) IN 
jABDRESS. HEX LOCATION (00003434) IN 
jBDDRESS. HEX LOCATION (00003466) IN 
ADDRESS. HEX LOCATION(0000347A) IN 
1782 1785 
ADDRESS. HEX LOCATION(00003496) IN 
ADDPESS. HEX LOCATION(00003520) IN 
1733. 1792 1803 18 184 
ABDRESS. HEX LOCATION (0000337A) IN 
ADDRESS. HEX LOCATION (000033CC) IN 
1722 1724 
JADBRESS. HEX LOCATION (00003380) IN 
ADDRESS. HEX LOCATION (000033B4) IN 
ADBRESS. HEX LOCATION(000034AA) IN 
ADDRESS. HEX LOCATION(000034B4) IN 
paDDRESS- HEX LOCATION(000033A2) IN 
ADDRESS. HEX LOCATION(000034FC) IN 
1805 1809 1829 
ADDRESS. EX LOCATION(000034FA) IN 
ADDRESS. HEX LOCATION(00003500) IN 
ADDPESS. HEX LOCATION(000034F0) IN 
1819 1821 
ARBRESS. HEX LOCATION(000034EC) IN 
(ARBRESS- HEX LOCATION (000034F2) IN 
ADDRESS. HEX LOCATION(0000306E) IN 
ADDRESS. HEX LOCATION (00003536) IN 
561 S87 610 
JARBRESS- HEX LOCATION (0000353A) IN 
ADDRESS. HEX LOCATION(OOOO2FFO) IN 
{RDDRESS.- HEX LOCATION (00003116) IN 
EDDRESS. HEX LOCATION(000033D0) IN 
ADDRESS. HEX LOCATION(00002EA2) IN 
ADDPESS, HEX LOCATYON(00002E66) IN 
458 46 488 497 6 
ADDRESS, HEX LOCATION (00003082) IN 
ADDRESS. HEX LOCATION (00003524) IN 
560 58 609 
>ADDPESS. HEX LOCATION(000035BE) IN 
ADDRESS. HEX LOCATION (000035DE) IN 
2361 2362 2377 2378 
>ADDPESS. HEX LOCATION (O000035AE) IN 
ADDRESS. HEX LOCATTON (09903624), I 
1898 1987 2195 2276 2378 2382 
ADDRESS. HEX LOCATION(0000355E) IN 
2381 2382 2384 2385 
ADDRESS. HEX LOCATION(0000362C) IN 
2191 2362 2385 
ABSOLUTE. HEX VALUE(00000024) 
2562 2624 
ABSOLUTE. HEX VALUE (00000022) 
2468 2609 
ADDRESS. HEX LOCATTON (00003852) IN 
2327 2330 2338 2345 2348 2357 
2375 2379 2383 2386 2389 
5 ADDRESS. HEX LOCATION (00003922) IN 
jADDPESS. HEX LOCATION (00003934) IN 
ADDRESS. HEX LOCATION(00003864) IN 
1354 2640 
> ADDRESS. HEX LOCATION (00003938) IN 
a ABDRESS. HEX LOCATION (00003952) IN 
pBDRPESS. HEX LOCATION (000038C0) IN 
a ADDRESS. HEX LOCATION(00003874) IN 
pADDPESS. HEX LOCATION(0000389A) IN 
5 ADDRESS. HEX LOCATION (000038AE) IN 
ABSOLUTE. HEX VALUE (00000001) 
556 573 582 
ADDRESS. HEX LOC ATION (000035 FE) IN 
1234 1495 1504 1513 1578 1761 
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CSECT (I7840 
CSECT (17840 
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CSECT (I7840 
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CSECT (I7840 
CSECT(I7840 
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CSECT (17840 
CSECT (I7840 
CSECT (I7840 
CSECT(I7840 
CSECT (17840 
CSECT(I7840 
CSECT (17840 
CSECT(I7840 
CSECT (17840 
CSECT (17840 
CSECT (I7840 
CSECT (17840 
CSECT(I7840 
CSECT (17840 
CSECT (17840 
CSECT(I7840 
CSECT (17840 
CSECT(I7840 
CSECT (17840 
CSECT(I7840 
CSECT (17840 
CSECT (17840 
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CSECT (17840 
CSECT(I7840 
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CSECT(I7840 
CSECT(I7840 
CSECT(I7840 
CSECT (37840 
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CSECT (17840 
CSECT (I7840 
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PASE 15A 


COPYRIGHT IBM CORP 1976 


LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (6) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENG TH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


{LENGTH (4) 


LENGTH (2) 
LENGTH (2) 
LENGTH (6) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 


LENGTH (2) 
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